Option Explicit
Sub Q_Sample006()
    ']wޥζMicrosoft Word 10.0 Object Library
    Dim myWdApp As Word.Application
    Dim myWdDoc As Word.Document
    Set myWdApp = CreateObject("Word.Application")
    'myWdApp.Visible = True
    Set myWdDoc = myWdApp.Documents.Add
    With myWdDoc
        With myWdApp.Selection
            .TypeText Text:="X֤"
            .TypeParagraph
        End With
         'w
        .MailMerge.OpenDataSource _
        Name:=ThisWorkbook.Path & "\Q_Book1.xls", _
        Format:=wdOpenFormatAuto, _
        Connection:="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin" & _
        ";Data Source=" & ThisWorkbook.Path & "\Q_Book1.xls", _
        SQLStatement:="SELECT * FROM `Sheet1$`", _
        SubType:=wdMergeSubTypeAccess
        .Fields.Add _
        Range:=myWdApp.Selection.Range, _
        Type:=wdFieldMergeField, _
        Text:="""mW"""
        myWdApp.Selection.TypeParagraph
        With .MailMerge
            .ViewMailMergeFieldCodes = wdToggle
            .Destination = wdSendToPrinter
            .SuppressBlankLines = True
            With .DataSource
                .FirstRecord = 1
                .LastRecord = 3
            End With
            .Execute Pause:=False
        End With
        .Close False
    End With
    myWdApp.Quit
    Set myWdDoc = Nothing                               '
    Set myWdApp = Nothing
End Sub
